IsUTC Function

public function IsUTC(time) result(utc)

Returns true if datetime object is expressed in UTC

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(in) :: time

Return Value logical


Source Code

FUNCTION IsUTC &
!
(time) &
!
RESULT (utc)

IMPLICIT NONE

! Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time

! Local variables:
LOGICAL :: utc
!------------end of declaration------------------------------------------------

IF (time % TZhour == 0 .AND. time % TZminute == 0) THEN
  utc = .TRUE.
ELSE
  utc = .FALSE.
END IF
	
END FUNCTION IsUTC